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ABSTRACT 

QANDA is a PDP-12 subroutine written in LING mode which allows a user to display textual informa- 
tion on the scope, ask questions of the viewer, allow editing of the input, and receive responses 
thereto . 



PRELIMINARY REQUIREMENTS 

QANDA will operate on a PDP*“12 computer equipped with a VC12 LINCscope control and VR12 CRT 
display, and Teletype. 



The subroutine is called by the following format: 

JMP QAINIT 

• +1 TXTSTR /POINTER TO TEXT STRING (HALF WORD ADDRESS) 

.+2 ANSWER /POINTER TO ANSWER BUFFER (HALF WORD ADDRESS) 

.+3 REFRESH return 

. +4 DONE return 

The calling sequence must be in LINC mode, 

A JMP to QAINIT will initialize the subroutine and fill the answer 
buffer with the underline character ( ). The subroutine must be 
initialized at least once. QAINIT h located at the relative address 0 
with respect to the beginning of the routine. 

-+l Points to the first character of the textual information to be displayed 

on the scope . 

Characters in the text string which have special meaning are: 



Character 


Code 


Meaning 


RETURN 


43 


End of a line of display. Place next character on 
next line . 


< 


74 


Interpret the decimal number immediately following < 
as the number of characters in the question field 
(Range 1-9) . 


\ 


34 


End of text string 


F 


06 


Treated as a special character only tf it appears at 
the beginning of a fine. If present, the entire line 
will be displayed in full-size character format. F 
will not appear on the scope . 



1 




Character 



Code 



Meaning 



H 10 Treated as a special character only if it appears at 

the beginning of a line . If present , the entire line 
wi 1 1 be displayed in half-size character format . H 
will not appear on the scope . If neither F nor H is 
present at the beginning of a line, half-size is assumed, 
and the first character of the line wi II appear on the 
scope . Intermixing of half and full-size characters 
between lines is legal . 



The 6-bit character string must conform to the character set accepted by DIAL. (See Table I.) 



The "TEXT ” pseudo-op in DIAL may be used to create the text string . For example, to display the 
following message on the scope in full-size character format: 

DATA AT BLOCK 

UNIT ___ 

the text string may be coded as: 

TXTSTR, TEXT -- ZFDATA AT BLOCK <3 
FUNIT<] \Z 

and would be assembled as: 

TEXT, 0604 

0124 

0140 

0124 

4002 

1417 

0313 

7463 

4306 

2516 

1124 

7461 

3400 



NOTE that the character "Z" before and after the text string is a delimiter for the assembler and does 
not appear in the assembled text string , (Any character not appearing in the text string may be used 
as a delimiter) . 
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Note also that the character “TAB‘% if typed within the text string^ will appear in the assembled string 
and will not be Interpreted as a special character by DIAL. The use of within the text string 

should^ therefore^ be avoided. 

The subroutine wifi automatically place a space before all question fields on the scope. The text string 

will not be changed, 

.+2 

Points to the first character of the answer buffer. The answer buffer need not be set up in any special 
way; it must be in length at least the number of half words equal to the sum of the number of characters 
in each question field plus one for each question field plus one. In the example above^ 7 half-»words 
long: 4 for the total number of characters In all question fields plus 2 for the number of question fields 

iM 1 for the terminator. 

Upon entry ^ QANDA will initialize the answer buffer as follows (see example above). All characters 
in each answer field are initialized to the underline character (00): 

ANSWER, 7400 
0000 
7400 
3400 

Code 74 precedes each answer field. Code 34 is the terminator . These codes are placed in the answer 
buffer by QANDA upon initialization. 

Characters, as they are received by QANDA from the Teletype, replace code 00 from left to right in 
each answer field. 

Conditions will always be such that the presence of a null value (00) in an answer field will guarantee 
that all remaining characters in that field will be set to 00 . Note that an all-null field is possible . 

If the typist responds to the questions with the block number 43 and the unit 1 , when the "DO NE" 
return is taken , the buffer will show: 

ANSWER, 7464 
6300 
7461 
3400 

If the responses to questions are dealt with as received, the same answer buffer may be used with 
various text strings in sundry calls to QANDA, since it will be initialized by QANDA upon each 
initialization entry; the area reserved must, of course, be of sufficient length to accommodate the 
requirement among the text strings. 
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.+3 



QANDA will refresh the scope once and then will return to this address , provided a LINE FEED has 
not been typed . This return is provided so that the calling program may periodically check externa I 
conditions: e .g . , a sense switch may be checked or; the program may display a message while await- 
ing completion of a tape instruction which it may check fo I lowing each refresh . Examining a partial 
answer buffer, however, is not recommended, because the answer buffer can be edited at any time by 
the typist . 

To maintain the display on the scope, QANDA has another entry point, QARFSH , which will not re- 
initialize the answer buffer . QANDA must be entered at this point each time it is to be refreshed. 

It is located at the relative address QAINIT +53. 

QANDA wi I ! always return to , +3 or . +4 following the instruction JMP QAINIT, regardless of the 

address of the instruction JMP QARFSH . A common situation is to place the instruction JMP QARFSH 
at . +3 fo I lowing JMP QAINIT . 

.+4 

QANDA will return to this location only if either 
1 . LINE FEED is struck, or 

2. RETURN is struck and no question fields exist . 

A return to this address signals that the typist has completed his input . 

INPUT 

Input is received from the Teletype keyboard . Legal keyboard characters are converted to their 6-bit 
equivalent and displayed on the scope . Legal characters are shown in Table I . The following input 
characters are not displayed, but are treated as special characters . 



Character 


Code 


Meaning 


\ 


34 


Ignored on input 


ALT MODE 


36 


The scope display is reinitialized . 
All answer fields are reinitialized 






to the underline character ( ) . 


RUBOUT 


37 


A cursor wi II always appear on the 
scope in front of the next character to 
be typed (unless there are no question 
fields) . 
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Charaefrer 



Code 



RETURN 43 



LINE FEED 45 

TAB 47 

< 74 

> 76 



OUTPUT 

All output is to the scope, as described above. 



Meaning 



Typing RUBOUT will delete the character 
preceding the cursor and will move all 
characters following the cursor one character 
to the left, unless the cursor is initially at the 
beginning of a question field, ^ 

The cursor is moved to the beginning of the 
next question field. If the cursor is currently 
in the last field, it will be moved to the 
beginning of the first field when RETURN is 
typed . 

If there are no question fields, RETURN 
will have the same effect as LINE FEED. 

Causes QANDA to exit to the “DONE^^ 
return , 

Ignored on input . 

Moves the cursor left one position. Subsequent 
typing of another legal character will cause the 
present character on the scope to the right of 
the cursor to be replaced by the charocter just 
typed , 

Moves the cursor right one position unless 
that character is the underline character ( ). 



USAGE 

QANDA is written in LINC code. Along with the keyboard input subroutine, GETKBD, it occupies 
two blocks (512 words) of binary LINC tape. It may be assembled with the calling program by adding 
the source to the program. If this is done, remove *1000 at the beginning of the subroutine. 

It may also be called by reading the binary of the program into LINC location 1000 (memory blocks 2 
and 3) and executing an effective JMP 1000 and JMP 1053 to refresh. Two blocks of the binary must 
be read into core memory, 

PROGRAMS CALLED 

A LINC Teletype input subroirflne, GETKID, Is called by QANDA and begins at location 121 of the 
second block of the binary. 
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It can be used independently of QANDA. GETKBD will accept ASCII input from the Teletype and 
convert it to 6-bit code as shown in Table I . 

Its calling sequence is: 

JMP GETKBD 
RETURN address 

GETKBD returns with the 6-bit code in the accumulator. If the accumulator equals zero, a key was 
not struck , and no input was received; or an illegal character was typed . 

GETKBD uses the LINC instruction lOB fol lowed by a PDP-8 Teletype lOT instruction to perform the 
Teletype input/output functions. The following instruction sequence is issued in the subroutine QATPE 
to echo a character: 

QATPE, lOB 

QATLS /EQUATED TO PDP-8 lOT TLS 
LDA 
0 

STC .+4/SAVE RETURN 
lOB 

QATSF /WAIT FOR FLAG, PDP-8 lOT TSF 
JMP .-2 
JMP /EXIT 

This routine prints the ASCII character in the accumulator then waits for the printer flag to rise . The 
routine can be made more efficient by first waiting for the flag , then printing the character by changing 



the above routine as shown below: 




QATPE, STC QAACUM 


/SAVE AC 


ADD 0 




STC QARETR 


/SAVE RETURN 


lOB 




QATSF 


/WAIT FOR FLAG 


JMP .-2 




LDA I 


/GET CHAR 


QAACUM, 0 




lOB 
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QATLS 

CLR 



/PRINT IT 



QARETR.JMP /EXIT, AC-0 

Subsequently, less flicker will appear on the scope while characters are being typed* However, the 
calling program must initially cause the Teletype flag to raise when the program is first started. This 
may be accomplished by the following instruction sequence at the beginning of the programj 



lOB 






6032 


/PDP-8 


lOT KCC 


lOB 






6046 


/PDP-8 


lOT TLS 



Whatever method is used, the calling program must, of course, also conform to the same convention 
throughout the program whenever it is driving the Teletype. 

RESTRICTIONS 

QANDA must reside in the same LINC lower memory segment as the calling sequence. 

It uses, without restoring, index registers 1, 2, 3, 4, 5, 6. Further, these registers cannot be used 
by the calling program between the refresh return and the next call to the refresh entry unless they 
are first saved and then restored. 

The text string and answer buffer are separate from each other and from the calling sequence and may 
therefore be in upper memory. However, the text string may not start in the left half of LINC location 

2000 (e ,g . the left half of the first word of the upper memory segment) unless the pointer to the text 
string is coded as 2\2000, or 2\TAG, where TAG -2000. 

QANDA will display a maximum of 44 half-size characters horizontally on a line before scope 
"wrap-around “ will occur. Likewise, a maximum of 22^^ full-size characters per line may be dis- 
played. 

A maximum of ^3 |q lines of text (either half-size of full-size) may be displayed vertically on the 
scope without wraparound. The initial Y-coordinate setting Is coded as 277g at location QARFSH + 1 . 
This initial Y-coordinate setting may be changed by incrementing or decrementing this number by a 
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number which is a multiple of 40^ . Thus, to raise the initial Y -coordinate one line and therefore 
increase the maximum number of lines to 14^^, the number 277^ may be changed to 33 7g at location 

QARFSH+1. 



Table I 

PDP-12 Character Set 



Character 



6-bit Code 



Comments 



@ 


00 


Illegal 


A 


01 




B 


02 




C 


03 




D 


04 




E 


05 




F 


06 




G 


07 




H 


10 




I 


11 




J 


12 




K 


13 




L 


14 




M 


15 




N 


16 




O 


17 




P 


20 




Q 


21 




R 


22 




S 


23 




T 


24 




U 


25 




V 


26 




W 


27 




X 


30 




Y 


31 




Z 


32 




[ 


33 


Shift/K 


\ 


34 




] 


35 


Shift/M 


ALT MODE 


36 




RUBOUT 


37 




SPACE 


40 




1 


41 




ti 


42 




RETURN 


43 




$ 


44 


Illegal 


LINE FEED 


45 




& 


46 
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Table I (Cont) 
PDP-12 Character Set 



Character 6-bit Code 



TAB 

( 

) 

■k 

+ 



/ 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 



> 

9 



47 

50 

51 

52 

53 

54 

55 

56 

57 
60 
61 
62 

63 

64 

65 

66 
67 

70 

71 

72 

73 

74 

75 

76 

77 



Comments 



Control/l 



9 




LI QANDA> 1 



9J000 






* 20 








000 1 






/QANDA ’ 


SUBROUTINE FOR THE 


0002 






/POP- 12 








0003 






/RFMOVP 


*1000 BELOW IF 




0004 






/INSERTING SOURCE DIRECTLY 


0 00 5 






/INTO YOUR PROGRAM SOURCE 


0006 






^1000 /REMOVEWF DESIRED 


0007 






/ 








0010 






/TO HERE TO 


INITIALIZE THE ROUTINE 


001 1 






/ 








00 1? 


1 000 


1 020 


OAI NIT^ 


LDA 


I 


/SAVE JMP RETURN 


0 0 1 3 


1001 


0002 




2 






0014 


1002 


2000 




ADD 


0 




00 15 


1003 


10 60 




STA 


I 




00 1 6 


1 004 


0000 


OAB^ 


0 




/JMP *3 


00 17 


100 5 


3200 




ADD 


QAL4-3 




0020 


1 00 6 


4001 




STC 


1 


/PTR TO FIRST PARAM 


002 1 


1 007 


100 1 




LDA 


1 


/GET FIRST PARAM 


0 022 


1 0 1 0 


3 2 64 




ADD 


QAO+ 1 


/PTR TO HALFWORD- 1 


0 02 3 


1011 


5057 




STC 


GAC~3 




0 02 4 


10 12 


1 021 




LDA 


I 1 




0 02 5 


1013 


5052 




STC 


QARFSH- 1 




0026 


10 14 


400 6 




STC 


6 


/XR6 USED AS A SWITCH. =08 








lELD^ = 


1 777 


IF YES 




0027 


1015 


0043 


OACA;, 


SET 


3 /XR3 TO 


PTR TO ANSWERS 


0030 


10 16 


1052 




QARFSH- 1 




003 1 


1017 


0044 




SET 


4 


/XR4 TO PTR TO QUESTIONS 


0032 


1 020 


1057 




QAG- 


•3 




0 0 3 3 












/TO HERE IF FI RST TIME TH® 








CR 








0034 


1021 


0041 




SET 


1 




0035 


1022 


000 4 




4 






0036 


1023 


7270 




JMP 


QAT 




0 03 7 


1 024 


001 6 




NOP 




/E 


0 0 40 


1 025 


132 4 




LDH 


I 4 


/H. BUMP PTR IE H OR F 


0 0 41 


I 02 6 


723 1 


GAD, 


JMP 


QAO 




0 0 42 


I 02 7 


7035 




JMP 


.4-6 


/ 74 


0043 


1 030 


7050 




JMP 


OAF 


/34 


0044 


103 1 


1 4 60 




SAE 


I 


/CR? 


0 0 4 5 


1032 


0043 




43 






0 0 4 6 


1033 


702 6 




JMP 


QAD 


/NO 


0047 


1034 


7021 




JMP 


QACA+4 /EXAMINE NEXT CHAR 


0050 












/INITIALIZE ANSWER BUFR 


0051 


103 5 


1343 




STH 


3 


/74 TO ANSWERS 


0052 


103 6 


1324 




LDH 


I 4 


/NEXT HALFWORD 


0053 


1037 


1 120 




ADA 


I 




0054 


10 40 


771 7 




~60 






0055 


1041 


0017 




COM 






0056 


1042 


4006 




STC 


6 




0057 


10 43 


1 3 63 




STH 


I 3 


/0 IN AC 


0060 


1044 


0226 




XSK 


I 6 




0061 


1045 


7043 




JMP 


. -2 




0 0 62 


1046 


1323 




LDH 


I 3 


/BUMP PTR TO ANSWERS 


0 0 63 


1047 


7026 




JMP 


QAD 




0 0 64 












/ANSWER BUER IS INITIATED 


0065 


10 50 


1 343 


QAE, 


STH 


3 




0 0 6 6 


10 51 


0064 




SET 


I 4 


/XR4 TO PTR TO LAST TYPED® 








ER BfJFR 








0 0 6 7 


1 0 52 


00 00 




0 






0 0 70 












/ R^E-FNTER HEIG>: TO REFB 


0 0 1 1 


1 0 ‘ ) 3 


\ 020 


UARE.SH, 


LDA 


I 


/INITIAL Y POrjTION 



10 




a 



0 0 72 


1 0 54 


02 77 


9.11 








0 0 73 


1055 


5113 




SIC 


QAH - 1 




0074 


1054 


0063 




SET 


I 3 


/XR3 TO PTR TO HALFWORD 00 


0075 


1057 


0000 




0 






00 7 4 


i 060 


0045 




SET 


5 


/XR5 TO PTR TO LAST DISPL0 








SWFCR 


BUER 






0077 


1041 


1052 




QARFSH- 1 




0100 


1062 


0041 


OAG, 


SET 


1 




0 101 


1 0 43 


0003 




3 






0 I 02 


10 44 


7270 




JMP 


QAT 




0 10 3 


1045 


7074 




JMP 


. + 7 


/F 


0 1 0 4 


1 0 4 4 


1 323 




LDH 


I 3 


/H. RUMP PTR 


0 105 


10 4 7 


1 020 




LDA 


I 


/MFITHFR. ASSUMF HALF SIZF 


0 104 


10 70 


1 5 40 




BCL 


I 




0 107 


107 1 


5103 




STC 


OAM + 2 


/SET INSTH TO CLEAR EE FOi 


0 110 


10 72 


3512 




ADD 


OA W 


/NOP IN AC 


0 111 


10 73 


7 10 1 




JMP 


0AM 




0 1 1 2 


10 7 4 


1 32 3 




LDH 


I 3 


/BUMP PTR 


0 113 


10 7 5 


1 020 




LDA 


I 




114 


107 4 


1 420 




BSE 


I 




0 115 


10 7 7 


5103 




STC 


QAM-i-2 


/SET INSTR TO SET FF FOR E 


0 116 


1 1 00 


3 513 




ADD 


QAW+ 1 


/ADD 9U IN AC 


0 117 


1101 


5245 


QAM, 


STC 


QAP+3 




0 1P0 


1 102 


0024 




MSC 


I 4 


/FAD CONTROL RFGI STER 


0 121 


1 103 


1 620 


J? 


BSE 


I 


/THIS INSTR CHANGES. EITHB 


0 1 22 


1 104 


0200 


o^ 


200 






0 123 


1105 


000 4 




MSC 


4 


/AC TO CONTROL REGISTER 


0 12 4 


1104 


0061 




SET 


I 1 


/XRl TO INITIAL X POSITION 


0 125 


1107 


0 1 00 




100 






0 124 


1110 


1 020 




LDA 


I 


/V COORDINATE MULTIPLE 


0 127 


nil 


7737 




“ 40 






0 1 30 


1112 


I i 40 




ADM 


I 


/Y COORDINATE 


0 1 3 1 


1113 


0000 




0 






0 1 32 


1114 


1 323 


QAH, 


LDH 


I 3 




0 1 3 3 


1115 


7232 




JMP 


QAO-4* 1 




0 1 34 


1116 


7301 


r 


JMP 


QAZ 


/I A BUMP PTR TO NEXT CHARI 


0 135 


1117 


7134 




JMP 


QAJ 


/34 


0 136 


1 1 20 


1 420 




SHD 


I 


/NEITHER 


: j 1 3 7 


1121 


4300 




43 00 




0 1 40 


! 1 22 


70 42 




JMP 


QAG 


/CR. MOVE X AND Y COORDIN® 


0 141 


1 123 


7242 




JMP 


GAP 


/ISPLAY CHAR 


0 1 /?2 


1 1 24 


7114 




JMP 


QAH 


/PICK UP NEXT CHAR 


0 1 43 


1 1 25 


7242 




JMP 


OAP 


/TO HRRF IF DISPLAYING ANS 


0 14 4 


1 126 


1 520 




SRO 


I /SWITCH 


TO DISPLAY CURSOR. EITHFR0 








7777 








0 1 45 


1 1 27 


0000 




0 




/IFXR4=XR5, THEN SWITCH = 77 


0 1 4 6 


1130 


751 6 




JMP 


QAE 




0 I 4 7 












/QUESTION MODE 


0 1 50 


1131 


I 325 


QAI ^ 


LDH 


I 5 




0 151 


1 1 32 


7232 




JMP 


QAO-f- 1 




0 1 52 


113 3 


7114 




JMP 


QAH 


/74 


0 1 53 


1 1 3 4 


7 114 




JMP 


QAH 


/34 


0 1 54 


1135 


7125 




JMP 


OA I - 4 


/NEITHER. DISPLAY IT 


0 1 55 


1134 


752 1 


OAJ, 


JMP 


GETKRD 


/TO HERE IF DISPLAYED RHER 


0 15/^ 


1137 


0 4 70 




aZe 


I 




1 S 7 


1 1 A0 


700 4 




JMP 


OAR /MOTH I MG T7PP0 . EXIT 


0 1AM 


u /n 






SET 


1 2 




0 I 41 


1 I 42 


14 12 




DAY 






0 1 42 


1 1 43 


1 402 




SHD 


2 


/LF? 


0 1 43 


1 1 4 4 


73 I 1 




JMP 


OAK +4 


/VFS, FXIT 


0 1 44 


1 1 4 5 


1 422 




SHD 


I 2 


/ C ? 



11 




0 1 


114 6 


7223 






GAN 




<A 1 66 


1147 


020 6 




"’.k* 


/ 


/IS THERE AN ANSWER FIELD? 


0 1 67 


1 1 50 


7053 




J "^2 


OARFSH 




0 1 70 


1151 


1 422 




SHD 


I 2 


/<? 


0 171 


1 1 52 


7175 




JMP 


GAL 




0 1 12 


1 1 53 


1 422 




SHD 


I 2 


/>? 


0 1 73 


1 1 54 


7305 




JMP 


OAK 




0 1 74 


1 1 55 


I 422 




SHD 


I 2 


/ALT? 


0 1 75 


1 1 56 


701 5 




JMP 


QACA /REINITIALIZE 


0 1 76 


1 1 57 


I 422 




SHD 


I 2 


/BACK SLASH? 


0 1 77 


1 1 60 


7053 




JMP 


QARFSH 


/I GNORE 


0200 


1 1 61 


1 422 




SHD 


I 2 


/RUBOUT? 


0 20 1 


1 1 62 


7175 




JMP 


GAL 


/IGNORE 


0202 


1 1 63 


1 422 




SHD 


I 2 


/TAB? 


0203 


! 1 64 


7053 




JMP 


QARFSH 


/I GNORE 


0204 


1 1 65 


51 72 




STC 


. + 5 


/ACCEPTABLE CHAR 


0205 


1166 


7231 




JMP 


GAD 


/TEST NEXT CHAR 


0206 


1 1 67 


72 63 




JMP 


QAQ 


/I A RACK PTR UP BY 1 


0207 


1 1 70 


72 63 




JMP 


QAQ 


/34 t 


0210 


1171 


1020 




LDA 


I 


/OK, STORE IT 


02 1 1 


1 1 72 


0000 




0 






0212 


1 1 73 


1344 




STH 


4 




0213 


1 1 7 4 


7053 




JMP 


QARFSH 


/RED! SPLAY 


021 4 


1 1 75 


1304 


GAL, 


LDH 


4 


/TO HERE IF RUBBOUT OR < 


021 5 


1 1 76 


7232 




JMP 


QAQ+ 1 




021 6 


1 1 77 


7053 




JMP 


QARFSH 


/74 IGNORE 


021 7 


1 200 


1 775 




-6002 




0220 


1201 


1302 




LDH 


2 


/TEST THE CHAR 


0221 


1202 


14 60 




SAP 


I 


/RUBOUT? 


0222 


1203 


0037 




37 






0223 


1204 


72 63 




JMP 


QAQ 


/NO, BACK PTR UP BY 1 


0224 


1205 


0045 




SET 


5 




0225 


120 6 


0004 




4 






0226 


1207 


0043 




SET 


3 




0227 


1210 


0004 




4 






0230 


121 1 


7213 




JMP 


. + 2 




023! 


1212 


1 325 




LDH 


I 5 


/BUMP PTR 


0232 


1213 


1 323 




LDH 


I 3 


/GET NEXT CHAR 


0233 


1214 


7232 




JMP 


QAO+ 1 




0 23 4 


1215 


00^ 6 




NOP 




/IF 74 OR 34^ REPLACE CURl 


0 23 5 


1216 


001 1 




CLR 






0236 


1217 


1 345 




STH 


5 




0237 


1220 


0450 




AZE 




/WAS IT 74 OR 34? 


0240 


1221 


7212 




JMP 


• -7 


/NO, CONTINUE 


0241 


1222 


7263 




JMP 


QAQ 


/BACK PTR UP BY 1 


0242 












/TO HERE IF CR 


0243 


1223 


0206 


GAN, 


XSK 


6 




0244 


1224 


731 1 




JMP 


QAK+4 


/EXIT ROUTINE IF NO ANSWEl 


0245 


1225 


7231 




JMP 


QAO 




0246 


1226 


7053 




JMP 


QARFSH 


/74 MOVE PTR TO NEXT QUESl 


0247 


122 7 


7051 




JMP 


QAE+ 1 


/34 END OF BUFR. MOVE PTRt 








ESTION 


FIELD 




0250 


1230 


7225 




JMP 


QAN + 2 




0251 














0252 


1231 


1324 


QAO^ 


LDH 


I 4 


/S\R 


0253 


1232 


1 420 




SHD 


I 


/ +1 74 BEGIN FIELD 


0254 


1233 


7400 




7400 


/ -1-2 34 END BUFR 


0255 


1234 


6000 




JMP 


0 


/ +3 NEITHER 74 NORa 


0 2 56 


1235 


1 4 60 




SAE 


I 




0257 


1236 


00 3^^ 




34 






02 60 


1237 


022 




XSK 


I 0 




02 61 


12 40 


022 




XSK 


I 0 




0 2 62 


12-'i^ 


6000 




JMP 


0 





12 
















/S\R TO DISP LINC CHAR I N0 


0 2 64 


12 42 


02 4! 


QAP^ 


ROL 


1 


/MULT BY 2 FOR INDFX TO At 








ABLE 








0 2 65 


12 43 


3 430 




ADD 


QAX+4 




02 66 


1 2 44 


4002 




STC 


2 


/ADDRESS OF CHAR TO DI SP i 


0267 


12 4 5 


3 50 6 




ADD 


QAU 


/THIS IMSTR CHANGFS. EITHi 








9U 








0 2 70 


1 24 6 


3 50 6 




ADD 


QAU 




0 2 71 


1 247 


200 1 




ADD 


1 


/ADD 4 TO XR! TO SPACE CHA 


^A91o 


1250 


400 1 




STC 


1 




0273 


12 51 


200 5 




ADD 


5 


/GET ADDRESS OF ANSWER BUR 


0274 


1 2 52 


001 7 




COM 






0275 


12 53 


2004 




ADD 


4 




CO 


12 54 


0 4 50 




AZE 






0211 


1255 


001 ! 




CLR 






0300 


12 5 6 


5127 




STC 


QAI “2 


/switched or 7777 


0 301 ■ 


1257 


3113 




ADD 


QAH“ 1 


/Y COORDINATE IN AC 


0302 


12 60 


1 7 42 




DSC 


2 




0 303 


1261 


1 7 62 




DSC 


I 2 


/DISPLAY CHAR 


0 30 4 


1 2 62 


6000 




JMP 


0 




0 30 5 


1 2 63 


1020 


QAQi. 


LDA 


I 


/BACK UP PTR BY I 


0 30 6 


12 64 


3777 




“4000 




0 30 7 


1265 


1 1 40 




ADM 






0 310 


12 66 


0004 




4 






0 3 1! 


12 67 


7053 




JMP 


QARFSH 


/REDISPLAY 


03 12 












/ 


03 13 


1870 


1 321 


OAT. 


LDH 


I 1 


/S\R 


03 14 


127 1 


1 420 




SHD 


I 


/ ! F 


03 15 


1 2 7 2 


0 600 




0 600 




/ -f 2 H 


0 3 16 


1273 


6000 




JMP 


0 


/ 'i'3 NEITHER 


03! 7 


12 7 4 


1 4 60 




SAE 


I 




0320 


12 75 


0010 




10 






0 32 1 


12 7 6 


0220 




XSK 


I 0 




0 322 


12 77 


0220 




XSK 


I 0 




0 3 2 3 


1 30 0 


6000 




JM!'^ 


0 




2 4 












/ 


0 32 5 


1 30 1 


I 323 


OAZ> 


LDH 


I 3 




0 32 6 


130 2 


1 020 




LDA 


I 




0 3 2 7 


13 0 3 


0 0 40 




40 






0 3 30 


1 304 


7125 




JMP 


QAI “4 




0331 












/TO HERE IF > 


0 3 3 2 


1 30 5 


1 32 4 


QAK. 


LDH 


I 4 




0 3 3 3 


1 306 


0 4 70 




AZE 


I 


/IS CURRENT CHAR BLANK? 


0334 


1 307 


7263 




JMP 


QAQ 


/YFS« IGNORE 


0335 


13 10 


7424 




JMP 


QAX 


/MOVE DOT FORWARD 


0336 












/TO here to exit with SKIP 


0 33 7 


1311 


1 020 




LDA 


I 




0 3 40 


1 3 1 2 


000 1 




1 






0 34 1 


13 13 


1140 




ADM 






0 3 42 


13 14 


1 00 4 




QAB 






v1 3 ^ 3 


13 15 


70 0 4 




JMP 


QAB 




0344 












/CHARACTER PATTERNS 


0 3 4 5 


1 3 1 6 


0 10 1 


QAV. 


0 1 0 1 




/KRD 0> ILLEGAL. USED AS M 


0 34 6 


13 17 


0 10! 




010 1 






0347 


1 320 


4 4 7 7 




4 4 7 7 




/ \ tf\ 


0350 


1 3 2 1 


7744 




7 7 4 4 






0351 


1 3 22 


517 7 




51 7 7 




/ 2 : n 


0352 


1 32 3 


2 65 ! 




2651 






0 3 53 


1 32 4 


4 1 3 6 




413 6 


/ 3 : r: 


0 3 > 4 


1 32 5 


22 4 1 




22 4! 






0 3 5 5 


I 32 6 


4 1 7 7 




41 77 




/ A 


0 3 56 


1 32 7 


3 64i- 




364 1 






0 3 57 


1 330 


4 577 




4577 




/5tK 



13 




0360 


1331 


4145 




4145 




03 61 


1 332 


4477 




4477 


/6s F 


0 3 63 


1 333 


4044 




4044 




0363 


1334 


4136 




4136 


/7J G 


0364 


1 335 


2645 




2645 




0365 


1336 


1077 




1077 


/10sH 


0366 


1 337 


7710 




7710 




0367 


1340 


7741 




7741 


/! UI 


0370 


1341 


0041 




0041 




0371 


1342 


4142 




4 1 42 


/12s J 


0372 


1343 


4076 




40 7 6 




0373 


13 44 


1077 




1077 


/13SK 


0374 


1345 


4324 




4324 




0375 


1346 


0177 




0177 


/ 1 4SL 


0376 


1347 


0301 




030! 




0377 


1350 


3077 




3077 


/ 1 5SM 


0 400 


1351 


7730 




7730 




0 401 


1352 


3077 




3077 


/! 6SN 


0402 


1353 


7706 




7706 




0403 


1354 


4177 




4! 77 


/ 1 7S0 


0404 


1355 


7741 




7741 




0 40 5 


1356 


4477 




4477 


/20sP 


0 40 6 


1357 


3044 




3044 




0 407 


13 60 


4276 




4276 


/21 sQ 


0410 


1361 


0376 




03 7 6 




041 1 


13 62 


4477 




4477 


/22sR 


0412 


1 3 63 


3146 




3146 




0413 


13 64 


5121 




5121 


/23S S 


0414 


13 65 


465! 




4651 




0415 


1366 


4040 




40 40 


/24S T 


0416 


1367 


4077 




4077 




0 4 1 7 


1370 


01 77 




01 77 


/25s U 


0420 


1371 


7701 




7 701 




0 421 


1372 


0176 




0176 


/26S V 


0422 


1373 


7402 




7402 




0 423 


1 374 


0677 




0677 


/27S W 


0424 


1375 


770 1 




7701 




0425 


1376 


14 63 




1 463 


/30sX 


0426 


1377 


6314 




6314 




0 42 7 


1 400 


0770 




0770 


/31 s Y 


0430 


1 401 


7007 




7007 




0431 


1 402 


4543 




4543 


/32s Z 


0432 


1 403 


6151 




6151 




0433 


I 404 


4177 




4! 77 


/33S/ 


0434 


1 405 


0000 




0000 




0435 










/34S BACKSLASH IGNORED ON i 


0436 


1 406 


0000 




0 


/NOT USED 


0437 


1 407 


0000 




0 


/NOT USED 


0440 


1410 


0000 




0000 


/35S 3 


0441 


1 41 1 


774! 




7741 




0 442 










/CODES 36SALT.. 37sRUBOUT 8 


0 443 


1412 


4543 


GAY, 


4543 


/LF^CR 


0 4 4 4 


1413 


7476 




74 7 6 


/ < > > 


0445 


1414 


3 63 4 




3 63 4 


/ALT^ BACK53LASH 


0446 


1415 


3 747 




3747 


/RUBOUTi. TAB 


0447 


1416 


0000 




0000 


/40s SPACE 


0450 


1417 


0000 




0000 




0451 


1 420 


7500 




7500 


/41 sX ! 


0452 


1 42! 


0000 




0000 




0453 


1 422 


7000 




7000 


/42s ” 


0454 


1 423 


0070 




0070 




0455 










/CODES 43: > 44 S , 45sLF NOl 


0456 


1 424 


7232 


QAX, 


JMP QAO+1 





14 




0457 


1 425 


7263 




JMP QAQ 




0 4 60 


I 426 


72 63 




JMP QAQ 




0 4 61 


1 427 


7053 




JMP QARFSH 


0 4 60 


1 430 


1316 




QAV 




0 4 63 


1 43! 


0000 




0 


/NOT USFD 


0 4 64 


1 432 


5166 




51 66 


/46S & 


0 4 65 


1 433 


0 52 6 




0526 




0 4 66 










/CODE 47: TAB NOT DISPLAYED 


0 4 67 


! 43 4 


0000 




0 


/NOT USED 


0470 


1 43 5 


0000 




0 


/NOT USED 


0471 


1 43 6 


3 600 




3 600 


/50: C 




1 43 7 


0041 




00 4 1 




0473 


1 440 


4100 




4100 


/5i : ) 


0474 


1 441 


0036 




0036 




0 475 


1 442 


2050 




20 50 


/52i* 


0 4 7 6 


1 443 


0050 




0050 




0 477 


1444 


0404 




0 404 


/53: 


0 500 


I 445 


0 43 7 




0437 




0 50 1 


1 4 4 6 


0 500 




0500 


/54: > 


0 50P 


1 447 


0006 




0006 




0 503 


1 450 


0404 




0 40 4 


/55: - 


0 50 4 


1 451 


0 40 4 




0 40 4 




0 50 5 


1 452 


000 1 




0001 


/56: . 


0 50 6 


1 4 53 


0000 




0000 




0 50 7 


1 454 


0 60 ! 




0 60 i 


/ 5 7 : \ 


0 510 


1 4 5 5 


40 3 ^ 




4030 




051 1 


1 456 


4536 




4536 


/60:0 


0512 


1 457 


3651 




365! 




0 513 


1 4 60 


210! 




210 1 


/ 61 : 1 


0 514 


1461 


0 I 77 




0! 77 




0515 


! 4 62 


4523 




4523 


/62 s 2 


0516 


1 4 63 


215! 




2151 




051 7 


1 4 64 


4122 




4122 


/ 63 s 3 


0520 


1465 


2651 




2651 




0 521 


1 466 


2414 




241 4 


/ 64S 4 


0522 


1467 


0477 




0477 




0523 


1 470 


5172 




5! 72 


/65: 5 


0524 


1 471 


0651 




0 651 




0525 


1 472 


! 506 




150 6 


/66S6 


0 52 6 


1 473 


4225 




4225 




0527 


1 474 


4443 




4443 


/67s 7 


0530 


1 475 


60 50 




6050 




0531 


I 476 


5126 




5126 


/70S8 


0 532 


I 477 


2651 




2 65! 




0533 


1 500 


5122 




5122 


/71 S9 


0534 


1 501 


365! 




3 65! 




0535 


1 502 


2200 




2200 


/72s 1 


0 53 6 


1 503 


0000 




0000 




0537 


I 504 


4 601 




4 60! 


/73S 1 


0540 


1 50 5 


0000 




0000 




0 54 1 










/CODE 74S<N0T DISPLAYED 


0542 


1 506 


0002 


QAU^ 


2 


/CONSTANT 


0543 


1 507 


0000 




0 


/NOT USED 


0544 


1510 


1212 




1212 


/75f = 


0545 


151 1 


1212 




1212 




0 546 










/CODE 76:> NOT DISPLAYED 


0547 


1 512 


001 6 


QAW^ 


NQP 




0550 


1513 


3506 




ADD QAU 




055! 


1514 


4020 




4020 


/111 ? 


0552 


151 5 


2055 




2055 




0553 






/ 






0554 


151 6 


1 7 60 


QAr> 


DSC I 




0555 


1 51 7 


6000 




6000 





15 




0 


1 520 


7131 




JMP OAI 




0557 






/ 






0 5 60 










/END Q+A 


0561 






/ 






0 5 62 






/ 






0563 






/ 






0 5 64 






/ 






0565 






/KEYBOARD INPUT ROUTINE 


0566 






/ 






0567 






QAKRB=: 


6036 /POP- 


8 lOT KBD 


0570 






QATSF=: 


6041 /TSF 




0571 






QATLS= 


6046 /TLS 




0572 






/ 






0573 


1 52 1 


1000 


GETKBD 


^ LDA 




0574 


1 522 


0000 




0 




0575 


1 523 


5643 




STC QAEXIT+6 


/SAVE RETURN 


0576 


1 524 


2001 




ADD 1 


/SAVE XRS 1 AND 2 


0577 


1 525 


5640 




STC QAEXIT+3 




0 600 


1 52 6 


2002 




ADD 2 




0 601 


1 52 7 


5642 




STC QAEXIT+5 




0 602 


1 530 


5636 




STC QAEXIT+1 




0 603 


1 531 


0415 




KST /WAS 


SOMETHING TYPED? 


0 60 4 


1 532 


6000 




JMP 0 


/NOs EXIT 


0 60 5 


1 533 


0500 




lOB 




0 60 6 


1 53 4 


6036 




QAKRB /GET 


TTY CHAR;» CLEAR FLAG 


0 607 


1 535 


10 60 




STA I 


/SAVE IT 


0610 


1 536 


0000 


CATY^ 


0 




061 1 


1 537 


1120 




ADA I 




0 612 


1 540 


7540 




”237 




0 613 


1 541 


0451 




APO 


/BETWEEN 200 AND 237? 


0614 


1 542 


7604 




JMP QACNTR 


/CONTROL CHAR. CHECK FOR 


061 5 






/ 






0 616 


1 543 


0061 




SET I 1 


/NO 


0617 


1 544 


1 654 




QACHAR”! 




0 620 


1 545 


- 00 62 




SET I 2 




0 621 


1 546 


7770 




”7 




0 622 


1 547 


1000 




LDA 




0 623 


1 550 


1 536 




GATY 




0 624 


1 551 


1 461 




SAE I 1 




0 625 


1 552 


7554 




JMP .+2 




0 62 6 


1 553 


7635 




JMP QAEXIT 


/ILLEGAL CHAR. DONT ECHO 


0 62 7 


1 554 


0222 




XSK I 2 /CHECKED THEM ALL? 


0630 


1 555 


7551 




JMP «”4 




0 631 






/ 






0 632 


1 556 


1 120 




ADA I 




0 633 


1 557 


7440 




”337 




0 63 4 


1560 


0451 




APO 


/BETWEEN 240 AND 337? 


0 63 5 


1 561 


7575 




JMP QALEGL 


/YES. LEGAL CHAR 


0 63 6 






/ 






0 63 7 


15 62. 


1461 




SAE I 1 


/NO. CHECK FURTHER. 


0 640 


1 563 


7572 




JMP .+7 




0641 


1 564 


1020 




LDA I 


/RUBOUT 


0 642 


1565 


0334 




334 




0 643 


1 566 


7644 




JMP QATPE 


/ECHO BACKSLASH 


0 644 


1 567 


1020 




LDA I 




0645 


1 570 


0037 




37 




0 646 


1 571 


7 63 7 




JMP QAEXIT+2 


/LEGAL EXIT 


0647 






/ 






0 650 


1 572 


1 461 




SAE I 1 




0 651 


1 573 


7635 




JMP QAEXIT 


/ILLEGAL 


0652 










/ALT 


0653 


1 574 


7637 




JMP GAEXIT+2 


/KXlls DONT ECHO 


0 65 4 






/ 







16 




0655 


I 575 


1000 


QALEGL^ 


LDA 




0 65 6 


1 57 6 


! 536 




OATY 




0 657 


1 577 


7644 




JMP 


QATPF /ECHO CHAR 


0 6 60 


1 600 


3536 




ADD 


QATY 


0661 


1 60 1 


1 5 60 




BCL 


I /STRIP IT TO 6-BIT 


0 6 60 


1 603 


7700 




7700 




0 663 


1 603 


7 63 7 




JMP 


QAEXIT4-2 


0 664 






/TO HERE IF 


CONTROL CHAR 


0 665 


1 604 


1 460 


QACNTR# 


SAE 


1 


0 666 


1 60 5 


7755 




7755 




0 667 


1 60 6 


7621 




JMP 


QACKLE 


0 670 


1 60 7 


1020 




LDA 


I /CR 


0671 


1 610 


0043 




43 




0 67P 


! 61 ! 


5 63 6 




STC 


QAEXI T+ 1 


0 673 


1 613 


1020 




LDA 


I 


0 674 


1613 


0215 




215 




0 67 5 


1 6! 4 


7644 




JMP 


QATPE 


0 676 


1615 


1 020 




LDA 


I 


0 67 7 


1616 


0212 




212 




f4 70 0 


! 61 7 


7644 




JMP 


QATPE 


0 70 1 


1 630 


7 63 5 




JMP 


QAEXI T 


0 703 






/ 






3 703 


1 63! 


1 460 


OAOKLF^ 


SAP 


I 


0 70 4 


1 633 


7752 




7752 




0 70 5 


1 63 3 


7 62 7 




JMP 


« -h 4 


0706 


1 63 4 


1 020 




LDA 


I /LE 


0 70 7 


! 635 


00 45 




45 




0 7 10 


1 63 6 


7611 




JMP 


OACNTR+5 


0 7 i 1 


1 63 7 


1 4 60 




SAE 


I 


0 7 13 


1 63 0 


775! 




77S1 




0 713 


1 63 i 


7635 




JMP 


QAEXIT /ILLEGAL 


0 714 


1 633 


1020 




LDA 


I 


0 715 


1 63 3 


00 47 




47 




0716 


1 63 4 


7 63 7 




JMP 


QAEXIT+2 /£KIT^ DONT ECHO 


0717 






/ 






0 730 


1 63 5 


1020 


QAFXIT^ 


LDA 


I /GET 6-BIT ASCII 


0 731 


1 63 6 


0000 




0 




0 73 3 


1 63 7 


0061 




SET 


I 1 /RESTORE XRS 


0733 


1 640 


0000 




0 




0 73 4 


1 64 1 


00 62 




SET 


I 2 


0 73 5 


1 643 


0000 




0 




0 73 6 


1 643 


6000 




JMP 


/EXIR S\R GETKBD 


0737 






/S\R TO 


PRINT C(AC) 


0 73 0 


1 64 4 


0 500 


OATPF:. 


I OR 




0 73 1 


1 645 


60 4 6 




QATL 


.S /PDP-B lOT TLS 


0733 


1 64 6 


1000 




LDA 




0733 


1 64 7 


0000 




0 




0 73^? 


1 650 


5654 




STC 


»+4 /SAVE RETURN 


0 73 5 


1 651 


0500 




lOB 




0 73 6 


1 6 53 


60 41 




QATSF /WAIT FOR FLAG 


0 73 7 


1 65 3 


765! 




JMP 


»-2 


0740 


1 654 


6000 




JMP 


/EXIT 


0 74 1 






/ 






0 743 


1 65 5 


0243 


OACHAR^ 


243 


/HASH 


0743 


1 656 


0244 




244 


/DOLLAR SIGN 


0 7 44 


1 657 


0245 




245 


/PER CENT 


0745 


1 660 


0247 




247 


/APOSTROPHE 


0 74 6 


! 66! 


0300 




300 


/AT SIGN 


0 747 


! 663 


0336 




336 


/UP ARROW 


0 7 50 


i 6 63 


0337 




337 


/BACK ARROW 


0751 


1 664 


0040 




40 


/RUBOLIT 


0753 


1 665 


003 6 




3 6 


/ALT 


0 7 53 






/F\*D OF 


S\R 


GETKBD 



17 




0000 RRRORS 



r.FTKPn 


SS? 1 


OAR 


50 0 X 


OACA 


50 1 5 


OACH AR 


5 A5 5 


OACKL F 


5 60 1 


OACNTR 


5 60 4 


OAn 


5006 


f)AF 


5050 


OAFXI T 


5 63 5 


OAF 


55 1 6 


OAG 


50 60 


OAH 


5114 


OAI 


513 1 


OAINI T 


500 0 


OAJ 


5136 


OAK 


5305 


OAKRB 


60 3 6 


(;AL 


51 75 


TiALFCL 


5575 


(JAM 


510 1 


OAN 


5003 


OAO 


503 1 


rjAP 


50 40 


OAO 


50 63 


OARFSH 


5053 


OAT 


5070 


OATL.S 


60 4 6 


OATPF 


5644 


OATFF 


60 4 1 


OATY 


5536 


OAIJ 


5506 


OAV 


53 1 6 


0 A W 


5510 


OAX 


5 40 4 


r(AY 


5410 


OAZ 


5301 




